Celestin Apprentice 5

home *** CD-ROM | disk | FTP | other *** search

/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / PowerMacOberon feb96 / Dialogs / GraphicUtils.Obj < prev next >

Wrap

Text File | 1996-01-25 | 9.4 KB | 32 lines | [TEXT/.Ob4]

¯6hˇ–01$›] GraphicUtilsÇ‹W·∑&¶bØyΔÉÑÖ;‚ÜDisplay;‚WêDisplay1;‚WêFonts;‚WêInput$ `<Oberon$ !Texts;ı‰ƒViewers$Ù…/Printer$ÀúcTextFrames$Õñ;TextPrinter$…¢ãFilesÜ¸≥ˇø¸ßˇö˙–˙ã ˛Ç ˛i˛¸Ω ˝4˝&˚*˙√¸˘,˘ˇ˘6¯ˇáàø°ˇÙî!ˇ∏;·8;√;§|ûË@‰8~C‡C‡8}C‡‡Ä!ª°ˇÙO‡ ø°ˇÙî!ˇ∏;·8;√;§Ë@˘8~C‡C‡8}C‡‡Ä!ª°ˇÙO‡ |¶øˇ‡êî!ˇ®;·8êA;√;§;Ö;f;G;(; /ûA˛08~8ù8º8€8˙998ÄBˇ‘HÄAC‡(8}8ú8ª8⁄8˘9ÄBˇ‘HÄAÄ(Ä!|¶ªˇ‡O‡ |¶ø!ˇ‰êî!ˇ®;·8êA;√;§;Ö;f;G;(,ûAÊ,8~8ù8º8€8˙9ÄBˇ‘HÄAC‡$8}8ú8ª8⁄8˘ÄBˇ‘HÄAÄ(Ä!|¶ª!ˇ‰O‡ |¶æ°ˇ‘}`&êëaî!ˇÄ;·8êA;Ö;f;G;(; :Í;ƒÅÅ0ûTÖ8|%ëÅêA;°8T¶Ë˛|…¶8„ˇ¸94Ö'ÖGï(ïHBˇ:¿:ºN`B|∂}}∞Æ/A˙h@ÛdôÄy,|∂|ù∞Æ8ø 8ﬂ8ˇ99?9_ÄBˇ‘HÄA©ü ||b|ï“É @¸®ø ú*2÷C‡N`ÇC‡ˇê|’‡|Ê–∞¯≤◊ÄPÅLÄ!|¶}Ò ∫°ˇ‘O‡ |¶æ°ˇ‘}`&êëaî!ˇÄ;·8êA;√;f;G;(; :Í;•ÅÅ0}Te8|%ëÅêA;Å8T¶Ë˛|…¶8‰ˇ¸94Ö'ÖGï(ïHBˇ,ûAÊ0û®~û®û û®æû®ﬁÄBˇ‰HÄA8ù8|8ª8⁄8˘99?9_Kˇ˛ ©}lpÄÑ±É®üÄ/@˙8†∞øC‡®ﬂÄ/Ü@˛®ˇ|Ëp±©?{J©_2™ˇˇ:¿|ñ®AÂtòÄx,|∂Ë|ú∞Æ8ø8ﬂ8ˇ99? 9_ÄBˇ‘Kˇ˝ÖÄA8~8ÄÄø©|€Z©ü|˙b9ÄBˇ‘Kˇ˛çÄA®{2÷C‡ˇåÄPÄüLÄ!|¶|èÒ ∫°ˇ‘O‡ |¶øAˇËêî!ˇò;·8êA;Ö;ƒÄ°0ﬁT«8|'ê°êA;°8TËË˛} ¶9#ˇ¸9A4ÖiÖâïjïäBˇ;`;@|ª|}ÿÆ/A˙HúÄ|,|ª|ùÿÆ8ø8ﬂ8ˇ9 9?9_ÄBˇ‘Kˇ˚…ÄA®üZ"3{C‡ˇ∞8zC‡‡Ä8Ä!|¶ªAˇËO‡ |¶æÅˇ–}`&êëaî!ˇp;·@êA;Ö;f;G;(; :Í;ƒÅÅ0ûTÖ8|%ëÅêA;°@T¶Ë˛|…¶8„ˇ¸9<Ö'ÖGï(ïHBˇ8yÄBˇ¯HÄA:√:†:úN`B|µ}}®Æ/ãA˛t@Ûp8vÄÇ|µ|Ω®Æ8ﬂ8ˇ99?9_9ü ëÅ89ëa<ÄBˇ¯HÄA©ü||b|î“|É @‰®øú*2µC‡N`ÇC‡ˇÑ|‘‡|Ê–∞¯≤∑ÄXÅTÄ!|¶}Ò ∫Åˇ–O‡ |¶æ°ˇ‘êî!ˇP;·8êA;Ö;f;G;(; :Í;ƒÅ!1^UK8|+ë!êA;°8UlË˛}â¶8cˇ¸8Å4Ñ£Ñ√î§îƒBˇ8û8}8º8€8˙99?9_Kˇ˛%®ˇ|Ëp±/@˙9 ±?C‡/ò@˛©_}Kp±©üúb®2£ˇˇ:¿|ñ®AÂ ∂>|ü≤|∂|Ω∞Æò§2÷C‡ˇ‡®ﬂ¶>|ˇ29ô8|8õ8ø8¿>ô8˘9 ÄBˇHÄAÄÄÄ!|¶∫°ˇ‘O‡ |¶ø!ˇ‰}@&êëAî!ˇê;·PêA;√/Nz–B;•;Ü;g;H;)/ûA˛0û®~û®û û®æû®ﬁÄBˇ‰Kˇ¸}ÄA,õ@Â/A˘d8~8Ä8Ω8‹8˚êˇ¸êüˇ¯êøˇÙêﬂˇêˇˇÏ8z8ÄKˇ˜=9ÄˇˇÏÄﬂˇÄøˇÙÄüˇ¯Äˇ¸99ÄBˇ‘Kˇˇ%ÄAC‡å@Û»8~8Ä8Ω8‹8˚999ÄBˇ‘Kˇ˜ÄA8~8Ä8Ω0‹0˚ˇ˛1ˇ˛99ÄBˇ‘KˇˆÈÄA8~8Ä0Ω0‹0˚ˇ¸1ˇ¸99ÄBˇ‘Kˇˆ¡ÄA8~8Ä8Ω0‹8˘ÄBˇ‘HÄA8~8Ä}}⁄0´ˇ˛}ú“0Ãˇˇ8˘ÄBˇ‘KˇˆyÄAC‡ƒ8~8Ä8Ω8‹8˚999ÄBˇ‘KˇˆôÄA8~8Ä8Ω0‹0˚ˇ˛1ˇ˛99ÄBˇ‘Kˇˆ%ÄA8~8Ä0Ω0‹0˚ˇ¸1ˇ¸99ÄBˇ‘Kˇı˝ÄA8~8Ä8Ω0‹8˘ÄBˇ‘KˇˆQÄA8~8Ä|Ω⁄0•ˇ˛|‹“0Δˇˇ8˘ÄBˇ‘KˇıµÄAÄ(Äˇ$Ä!|¶|ÔÒ ª!ˇ‰O‡ |¶øaˇÏêî!ˇ∞;·8êA;√;§;Ö;f8~8ù8º8¿ÄBˇHÄA}‚0hˇ˛0ù8†0€ˇ˛ÄBˇKˇı-ÄA8~0ù8†0€ˇ˛ÄBˇKˇıÄA0~}=⁄0âˇ˛0ºˇ¸8¿ÄBˇKˇÙÒÄA8~0ù8†ÄBˇHÄA}^‚0jˇ˛}}⁄0ãˇˇ8†ÄBˇKˇÙπÄAÄ Ä!|¶ªaˇÏO‡ |¶æ¡ˇÿ}Ä&êëÅî!ˇò;·8êA;√/ÑN~B;•;Ü;g;H;); ,ûAÊ0û®~û®û û®æû®ﬁÄBˇ‰Kˇ˜ÖÄA@Û :‡:¿3®h0Éˇˇ∞ühC‡:‡:¿8~8ó8º8€8˙9©?lÄBˇ‘Kˇı’ÄA8~8ó|º“0•ˇ˛0€8‡1ˇ˛©?lÄBˇ‘KˇÛΩÄA8~8ñ8º0€8‡1ˇ˛©?lÄBˇ‘KˇÛëÄA8~8ñ0º|€ 0Δˇ˛0˙ˇ¸9©?lÄBˇ‘KˇÛiÄA8~8ñ8º0€®ˇlÄBˇ‘KˇıçÄA8~8ñ|¸“0ßˇ˛} 0»ˇˇ®ˇlÄBˇ‘KˇÛÄA8~8Ä0º0€0˙ˇ¸1ˇ¸©?lÄBˇ‘KˇÛ=ÄA/A˙,8~8Ä8Ω|‹¬©?h|˚J©lÄBˇ‘Kˇ˚ùÄAÄ8Å_4Ä!|¶}OÒ ∫¡ˇÿO‡ |¶øˇ‡êî!ˇ®;·8êA;√;§;Ö;f;G;(; 8}8ú8ª8⁄Kˇ¸ÕÄ(Ä!|¶ªˇ‡O‡ |¶ø!ˇ‰êî!ˇ†;·8êA;£;ƒ;Ö;f8}8û8º8¿ÄBˇËHÄA3;ˇˇ;@ö»A˝08}8û8øÄBˇËHÄAâ,ã@Êˇ‡3ZC‡ˇ–Ä0Ä!|¶ª!ˇ‰O‡ |¶øˇ‡êî!ˇx;·8êA;£;ƒ;Ö;f;G;(;ì,ì ì8}8û8øÄBˇËKˇÒπÄA/@˘ÿâù l/ÉA˛»àü,ÑAÊºÄΩ/A˙ É8¿òﬂÄ˝êˇâ} tô?8}8ûÄBˇËHÄA1Cˇˇë_8x8üÅbˇÙÄ´ˇ¸òÄ| ¶ÄX O‡!ÄAòÅò8`'|å◊@‡0Ñˇˇ$»/ô@˝î8†òøÄ›êﬂà˝|Ëtô8}8ûÄBˇËKˇ’ÄA1#ˇˇë?ìü ≥$≥_&9@ë_,8x8üÅbˇÙÄ´ˇ¸òÄ| ¶ÄX O‡!ÄAòÅò8`'|å◊@‡0Ñˇˇ{"C‡xÄ}ÉÄc,àü8ø8ﬂ8ˇ 99?9_ÄBˇ‘Kˇ˙≈ÄA®ø%»,ô@Â48|à›|ƒtÄø®ˇ|€:© |˙B9Kˇù©?{J8}8û8øÄBˇËKˇÒ9ÄAC‡˛(ÄXÄ!|¶ªˇ‡O‡ |¶æÅˇ–êî!ˇ`;·8êA;√;§;Ö;f;G;(; :Í8ê$êêê/A˙0û®~û®û û®æû®ﬁÄBˇ‰KˇÙÄA©_®/äA¸`©®©ü§|ã`A‰P|y∫®ü§®ø®|ƒ(0Ê}9÷}(}[H2äˇ˛}t⁄3+ˇˇ2∫2‹3ˇ¸3Zâü†/A˙∞8~8Ä8∫8Ÿ8¯99 KˇÓ¡8~8Ä|∫¬0•ˇˇ8Ÿ8‡1ˇˇ9 KˇÓù8~8Ä8∫0Ÿ8‡1ˇˇ9 KˇÓ}8~8Ä8∫|Ÿ≤0Δˇˇ8¯99 KˇÓY8~8Ä0∫0Ÿ0¯ˇ˛1ˇ˛9 KˇÓ9C‡$8~8Ä8∫8Ÿ8¯99 KˇÓ8Ä‚ˇËÄáˇÿ8Ω®ﬂ®Kˇ˚a8ÅˇËÄàˇÿ8æ8’8Ù9Kˇ˚’ÄpÄ!|¶∫Åˇ–O‡ |¶ø°ˇÙêî!ˇh;·@êAëˇ¸8ê$êêê9 Å_ˇ¸±*9`Åüˇ¸Äl¨±c8ÄÄøˇ¸Ä≈∞∞Ü8‡Åˇ¸Å(¥∞È;†;¿9@ˇˇÅˇ¸±K8ÅÇˇËÄåˇÿÄøˇ¸Ä•å8¿ÄBˇËKˇÒ·ÄA8Ä¬ˇËÄÜˇÿ8ø0ÄBˇËKˇÔaÄAàˇ!/àA˛xâ?0,â@Ê8Å_ˇ¸®j8ùKˇÏùÅˇ¸∞k;†Åüˇ¸Äl¨®É0§∞£C‡Äﬂ/A˙pÄˇˇ¸Å∞®hÅ?âÅI9`'}äZ◊@‡1åˇˇ8åKˇÏ=Äüˇ¸Ä§∞∞eÄﬂÜÄÊ9'}'B◊@‡1)ˇˇÅ_ˇ¸©j}ãJ±äC‡úÄˇ¸ÄÉ∞®dÄüÑ®Ñ KˇÎÂÄøˇ¸Ä≈∞∞fÄˇˇ¸Å¥®hÄüÑ®Ñ&KˇÎ}Å?ˇ¸ÅI¥∞jÄÉÄc,àü08ø48ﬂ68ˇ89:9?<9_@ÄBˇ‘KˇÔπÄAÅˇ¸©ã®4|å∞ããﬂ08Ä¢ˇËÄÖˇÿ8ø0ÄBˇËKˇÏçÄAC‡˛Ä/û@˛Äﬂˇ¸ÄÊ¨©1(ˇˇ±'Å_ˇ¸®j8ùKˇÎÅˇ¸∞kÅüˇ¸Äl∞®É0§∞£Ä`Ä!|¶ª°ˇÙO‡ |¶æ°ˇ‘êî!ˇH;·HêA;√êüå;•;Ü;g;H;); 8ê0ê$êê,ûAÊ0û®~û®û û®æû®ﬁÄBˇ‰KˇÓ…ÄA9Kˇ¸›:⁄:˚8~8Ä8∑8÷8˘9©?®KˇÍy8~8Ä0∑0÷0˘ˇ˛1ˇ˛9 KˇÍY8Ä¬ˇËÄÜˇÿÄøå8›Kˇ˜•|˙¬1ˇ˛Å?∞©I}j@Åü¥®lCX3{Äü¥®§|⁄*0ˆ1@A¯Hâ?!I/äA˛88ÅbˇËÄãˇÿ8æ8€8˙9Kˇ˜…Åü∞®lC–2µC‡ˇ§8~ÄüåÄø∞®•Äﬂ¥®Δ8˜9999X9`ôa8≥°<≥Å@Kˇ˘¡ÄxÄ!|¶∫°ˇ‘O‡ |¶æaˇÃêî!ˇh;·HêA;√;§;Ö;f;G;(±?Ä±_Ñ3}õ 2Ïˇ˛Äå®c8ÄKˇËŸÄüå∞d0πˇ¸0≈ˇˇ®ˇÑá~Δ:◊@‡2÷ˇˇ88ü8ø ÄBˇ‡HÄA:Ä8`Åê®àKˇËâÅ?ê∞iÅ_,äAÊêÅ~î[xÅÇˇ‰8l,ÄÇˇ‰ÄÑˇËÄ¢ˇ‰8•Ä¬ˇ‰ÄΔˇÏ®ˇ© ÄBˇ‰HÄA®ˇ }∏©?Ñâ}HJ◊@‡1JˇˇÅå©ã~™b<`‡A˙Äüê®§/Öˇˇ@˛X8~8ù®øÑ®ﬂà8¸99:9Y9`ôa8Åüå©l±a<Åüê©l±a@Kˇ¯19ÄˇˇÄê±ÉC‡†®ü|Ñ‡A‰‰|º“®ﬂ(A˘‘Äˇå©ï@A¸ƒÅ?å©I}j≤1ãˇˇ|ï`AÂ¨Äê®É A˙ò®øÄï(@¸å8~8ù®øÑ®ﬂà8¸99:9Y9`ôa8Åüå©l±a<Åüê©l±a@Kˇ˜}8~8ù®øÑ®ﬂà8¸99:9Y9ÄôÅ8Åå©ã±Å<≤°@Kˇ˜AÄê≤£C‡¥®ü|Ñ‡A‰Ã|º“®ﬂ(A˘º®ˇ á∏@˝∞Åå©(,â@Â†Å_å©j1ãˇˇ±äÄê®É0§ˇˇ∞£8~8ùÄﬂå®¶Äˇê®«8¸99:9Y9`±a89üÄëÅ<9Ñëa@9üàëÅDKˇ˚-ÄBˇ‰HÄA:cÄBˇ‰KˇÂ…ÄA|s/ñ@¯C‡ˇËC‡‡®üÑ‡A¸‘|º“®ﬂ|Ü(AÂƒ|ˆ∏© 8@¯¥©?Ä1IˇˇÅê©ãåP@¸úÄå®É0§∞£Äﬂê®Ê1±8~8ùÅ?å®©Å_ê® 8¸99:9Y9`±a89üÄëÅ<9Ñëa@9üàëÅDKˇ˙MÄBˇ‰KˇÂπÄA:cÄBˇ‰Kˇ‰ÈÄA|s,Éñ@‰C‡ˇË88ü8ø ÄBˇ‡KˇËaÄAC‡¸lÄXÄ!|¶∫aˇÃO‡ |¶ø·ˇ¸êî!ˇ¿;·8êAÄÇˇ‘Ä§ê¢8¿Ëê¬8`8ÄÊ8†Ê8¿ÊÄBˇ‘HÄA8`8Ä“8†“8¿“ÄBˇ‘Kˇ‰QÄA8`8Äñ8†ñ8¿ñÄBˇ‘Kˇ‰5ÄA8`8Äd8†d8¿dÄBˇ‘Kˇ‰ÄAÄÄ!|¶ª·ˇ¸O‡ âäèîñÿ⁄‹ﬁ@DFWÑãÈÎÒ˘Ùˆ¯˙”Ÿ˘ˇEGIK˙&lnpr‡ã¯8Minx·{y‚{¯ 8Maxx·{y‚{¯» 8ReplConstCcol‚{f·{thÊ{modeÁ{wÂ{x„{y‰{¯Ì 8CopyPatternCcol‚{f·{tmodeÊ{pat„{x‰{yÂ{¯∑»8CheckStringchcondå{cwcxcydx fntÊ{|iÈ{letË{patretÁ{s‚{wÂ{x„{x0Í{y‰{¯¶»8DrawString@forÍ{alignÄch condå{cwcxcydxf·{tfntÁ{|iÈ{letmodeË{patretÑs„{wÊ{x‰{yÂ{¯›08GetStringLengthchcw cxcydxfnt„{|i‰{pats‚{xÂ{¯Ø–¿CheckPStringch condå{cwcxcydxfnoÈ{fntÊ{|iÍ{letË{patpdxretÁ{s‚{wÂ{x„{x0Î{y‰{¯Ñ¯8PrintString@forÍ{alignÁ{cxfntÊ{|iÈ{letmystr>retË{s‚{wÂ{x„{y‰{¯¶ –DrawBoxf·{thÂ{modeÊ{pressedå{w‰{x‚{y„{¯·8PrintBoxh‰{w„{x·{y‚{¯‚08DrawPatternBoxf·{thÊ{lowerColË{modeÏpXÁ{pYËpat‚{pressedå{upperColÈ{wÂ{x„{y‰{¯˘ 8PrintPatternBoxhÂ{pXÊ{pYÁ{pat·{w‰{x‚{y„{¯û(8Set@forÊ{chiÂ{l‰{r‚{Xt„{x¯∞–8DrawLinechdxeÁ{lf„{thm |patr‚{XwÊ{w0x‰{x0yÂ{y0 ¯Ø Ë8Flipcmd®dsc‰{f·{thË{in†itemHÈ{lsp„{menu‚{xrXsc§wÁ{xÂ{x1Í{yÊ{y1Î{¯◊ ÿ¿MeasureMenuch0dx4h<oldCh·{p¿rXw:wid0‚{x6y8¯Δ»DrawMenucmd„{defdsc¥f·{thÁ{iÍ{lsp∞menuåxmode®n¨rXsc‚{wÊ{widx‰{x0Ë{yÂ{y0È{¯‹–»TrackMenubotÁ{cmdêdifÈ{dscàf·{thÊ{iÏ{keys keysumÎ{ lspÑmenu‚{xmxmy nÄnewCmdÍ{scåtopË{wÂ{x„{y‰{¯à8$$dUnitpUnit